home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / apr94 / lc_fig07.gif < prev    next >
Graphics Interchange Format  |  1996-07-10  |  28.0 KB  |  640x507  |  4-bit (5 colors)
   ocr: MENUZELIbraryl.aryl.aformLoader method aFormLoader(aformspec String, IMultilnstance Logical) String var: FCrntForm Form: Form: to load nErr Smallint Error number alitle, Form window title. aFile, Form: file: name: aErr String Returned value: Non-Dlank if errors have. occured enduar aErr: = : if not aFormspec.match : aFile, aTitle: ) then aErr: = " + aFormspec + "N": In" # "Improper form: name: specification. See system administrator. else: if IMultiinstance then aErr =: aupenForm(afile,alitle) else if: not: FCrntForm.attattach(alitle) then aErr =E a0penForm(aFile,aTitle) else FCrntForm.bringTo ...